home *** CD-ROM | disk | FTP | other *** search
/ Starlight / Starlight_10_19xx_Starlight_staff_de_Side_A.d64 / 13 klassiker (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  38 lines
  1. 0 sys 42921:poke45,197:poke46,12:poke55,255:poke56,17:clr
  2. 2 dima$(20),b$(20):reads$(0),s$(1):poke53280,0:poke53281,0
  3. 5 reada$(k),b$(k):ifb$(k)<>"   "thenk=k+1:goto5
  4. 7 k=k-1
  5. 20 print"[147][155]  cheats & pokes fuer c=64 klassiker.   "
  6. 30 print"praesentiert vom spielemagazin starlight"
  7. 32 print"* bitte anleitung im magazin und in den   cheat-programmen beachten !"
  8. 40 print:forl=0tok:printtab(2)l+1,a$(l):poke55546+l*40,1:next:print
  9. 42 poke55546+l*40,1
  10. 45 print"";a$(k+1)
  11. 50 x=-1:inputx:x=x-1:ifx<0 or x>k then 20
  12. 70 j=0:ifx>7thenj=1
  13. 75 gosub90
  14. 80 sys(57812)b$(x),8,255:sys4608
  15. 90 print"[147]bitte die ";s$(j)" der 'starlight'-"
  16. 100 print"disk einlegen...":print:input"dann <return>";a$:gosub500
  17. 110 ifa$<>"63"then90
  18. 120 return
  19. 500 open1,8,15:print#1,"r:"+b$(x)+"="+b$(x):input#1,a$,b$,c$,d$:close1:return
  20. 999 end:data"vorderseite","rueckseite"
  21. 1000 data"dragon wars","dra"
  22. 1005 data"ashes of empire (planeten)"   ,"as2"
  23. 1007 data"ashes of empire","ash"
  24. 1009 data"star wars","stw"
  25. 1010 data"oil imperium","oil"
  26. 1020 data"pool of radiance (ssi)","poo"
  27. 1030 data"hillsfar         (ssi)       ","ad+"
  28. 1040 data"creatures i","cre"
  29. 1060 data"bard's tale 1","bt1"
  30. 1070 data"bard's tale 3","bt3"
  31. 1080 data"die dunkle dimension","dar"
  32. 1090 data"pirates!","pir"
  33. 1100 data"ultima v","ul5"
  34. 1110 data"das schwarze auge","dsa"
  35. 1200 data"waehlen sie eine nummer!","   "
  36. 5000 rem *** speedy hack by k.l.d
  37. 5010 rem *** typed in under 5 minutes/v2
  38.